ggplot(data = A) + geom_freqpoly(aes(SocDens, ..density..), binwidth = 0.4) +
  theme_minimal() + xlab('Individual Connectedness') + ylab('Density') + ggtitle('Distribution of\nIndividual Connectedness') +
  theme(plot.title = element_text(hjust = 0.5), text = element_text(size=16)) 
ggsave(paste0('../results/FigD1_',(Sys.time() %>% str_replace_all(c(":" = "-", " " = "_"))),'.jpg'))

ggplot(data = A) + geom_freqpoly(aes(NeighDens, ..density..), binwidth = 0.25) +
  theme_minimal() + xlab('Neighborhood Social Density') + ylab('Density') + ggtitle('Distribution of\nNeighborhood Density') +
  theme(plot.title = element_text(hjust = 0.5), text = element_text(size=16)) 
ggsave(paste0('../results/FigD2_',(Sys.time() %>% str_replace_all(c(":" = "-", " " = "_"))),'.jpg'))